home *** CD-ROM | disk | FTP | other *** search
/ Sacred & Secular / Sacred and Secular.iso / pc / movies / shared.dir / 05033_Script_5033 < prev    next >
Text File  |  1996-04-03  |  2KB  |  115 lines

  1.  
  2. on copy1300
  3.   repeat with i = 1300 to 1399
  4.     put I
  5.     go movie "Sacred and Secular CD:MOVIES:BRIDGES.DIR"
  6.     put ">>>CD" && the moviePath
  7.     
  8.     copyToClipBoard cast i
  9.     
  10.     go movie "Sacred and Secular CDx:MOVIES:BRIDGES.DIR"
  11.     put ">>>HD" && the moviePath
  12.     
  13.     pasteClipBoardInto cast i
  14.     
  15.     saveMovie
  16.     
  17.     if the shiftDown then asdf
  18.   end repeat
  19.   
  20. end
  21.  
  22.  
  23. on copyCast start, count
  24.   --
  25.   --
  26.   -- copy the cast members from here to the shared cast file...
  27.   --
  28.   -- 300,400,500,1300,1400  
  29.   --
  30.   
  31.   openXlib "s maxmem"
  32.   
  33.   set limit = count+start
  34.   
  35.   repeat with i = start to 99 
  36.     
  37.     if i = (start+limit) then exit repeat
  38.     
  39.     put i
  40.     
  41.     copyCastHelp 300+i  
  42.     copyCastHelp 400+i
  43.     copyCastHelp 500+i
  44.     copyCastHelp 1300+i
  45.     copyCastHelp 1400+i
  46.     --copyCastHelp 1500+i time-line ONLY    
  47.     
  48.   end repeat
  49.   
  50.   put "Done with items" && start && "through " start + limit - 1
  51. end
  52.  
  53. on copyCastHelp cn
  54.   
  55.   maxmem()
  56.   
  57.   put the freeBytes
  58.   
  59.   copyToClipBoard cast cn
  60.   
  61.   set fNum = "" & cn mod 100
  62.   if length(fNum) = 1 then set fNum = "0" & fNum
  63.   
  64.   set mName = "" & fNum & ".DIR"
  65.   go movie mName
  66.   
  67.   set free = findEmpty(cast 1)
  68.   pasteClipBoardInto cast free  
  69.   saveMovie
  70.   
  71.   go movie "BRIDGES.DIR"  
  72. end
  73.  
  74.  
  75. on eraseCast start, limit
  76.   --
  77.   --
  78.   -- copy the cast members from here to the shared cast file...
  79.   --
  80.   -- 300,400,500,1300,1400,1500  
  81.   --
  82.   
  83.   openXlib "s maxmem"
  84.   
  85.   repeat with i = start to 99 
  86.     
  87.     if i = (start+limit) then exit repeat
  88.     
  89.     put i
  90.     
  91.     eraseCastHelp 300+i
  92.     eraseCastHelp 400+i
  93.     eraseCastHelp 500+i
  94.     eraseCastHelp 1300+i
  95.     eraseCastHelp 1400+i
  96.     eraseCastHelp 1500+i
  97.     
  98.     
  99.   end repeat
  100.   
  101.   put "Done with items" && start && "through " start + limit - 1
  102. end
  103.  
  104. on eraseCastHelp cn
  105.   
  106.   maxmem()
  107.   
  108.   put the freeBytes
  109.   
  110.   erase cast cn
  111.   
  112.   saveMovie
  113.   
  114. end
  115.